perm filename S7T.ALP[HAL,HE] blob sn#234006 filedate 1976-09-03 generic text, type T, neo UTF8
		;Start of program
	XPROG
		;BLOCK
	XMVAR
		;$B1.SP_GR
	22
		;$B1.ORG
	24
	0
		;Assignment
	XPUSH
	L1
	XCHNGE
		;$B1.SP_GR
	22
		;BLOCK
	XMVAR
		;
	26
		;
	30
		;
	32
		;
	34
		;
	36
		;
	40
		;
	42
		;
	44
		;
	46
	0
		;Move
	XMOVE
	L2
	4
		;Move
	XMOVE
	L3
	10
		;Move
		;first argument
	XGTVAL
		;$B1.SP_GR
	22
		;second argument
	XPUSH
	L4
	XTVADD
	XCHNGE
		;
	42
		;first argument
	XGTVAL
		;$B1.SP_GR
	22
		;second argument
	XPUSH
	L5
	XTVADD
	XCHNGE
		;
	40
		;first argument
	XGTVAL
		;$B1.SP_GR
	22
		;second argument
	XPUSH
	L6
	XTVADD
	XCHNGE
		;
	36
		;first argument
	XGTVAL
		;$B1.SP_GR
	22
		;second argument
	XPUSH
	L7
	XTVADD
	XCHNGE
		;
	34
		;first argument
	XGTVAL
		;$B1.SP_GR
	22
		;second argument
	XPUSH
	L10
	XTVADD
	XCHNGE
		;
	32
	XMOVE
	L11
	4
		;PAUSE
	XPUSH
	L20
	XPAUSE
		;Move
		;first argument
	XGTVAL
		;$B1.SP_GR
	22
		;second argument
	XPUSH
	L21
	XTVADD
	XCHNGE
		;
	30
	XMOVE
	L22
	4
		;PAUSE
	XPUSH
	L25
	XPAUSE
		;Move
	XMOVE
	L26
	4
		;Block end cleanup
	XKVAR
		;
	26
		;
	30
		;
	32
		;
	34
		;
	36
		;
	40
		;
	42
		;
	44
		;
	46
	0
		;End of BLOCK
		;Block end cleanup
	XKVAR
		;$B1.SP_GR
	22
		;$B1.ORG
	24
	0
		;End of BLOCK
	XENDP
		;End of program